type TTest = class(TObject, IInterface, IInterface)